home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / LGP250S1.ZIP / src / libgplus.5 / libgplus / vms / vms-gccl.mar < prev    next >
Text File  |  1992-03-04  |  773b  |  57 lines
  1.     .TITLE    GCCLIB GNU CC compiler runtime support routines
  2.     .IDENT    /1.00/
  3.  
  4. ;
  5. ;    The following routines implement runtime functions for code
  6. ;    generated by GNU CC.
  7. ;
  8.     .PSECT    $CODE,LONG,PIC,REL,SHR,EXE,RD,NOWRT
  9.     .ENTRY    UDIV,^M<R2>
  10.     MOVL    4(AP),R0
  11.     MOVL    8(AP),R2
  12.     BEQL    1$
  13.     CMPL    R2,#1
  14.     BLEQ    2$
  15. 1$:    CLRL    R1
  16.     EDIV    R2,R0,R0,R2
  17.     RET
  18. 2$:    BEQL    10$
  19.     CMPL    R0,R2
  20.     BGEQU    20$
  21.     CLRL    R0
  22.     RET
  23. 20$:    MOVL    #1,R0
  24. 10$:    RET
  25.  
  26.     .ALIGN    LONG
  27.     .ENTRY    UREM,^M<R2>
  28.     MOVL    4(AP),R0
  29.     MOVL    8(AP),R2
  30.     BEQL    1$
  31.     CMPL    R2,#1
  32.     BLEQ    2$
  33. 1$:    CLRL    R1
  34.     EDIV    R2,R0,R2,R0
  35.     RET
  36. 2$:    BNEQ    10$
  37.     CLRL    R0
  38.     RET
  39. 10$:    CMPL    R0,R2
  40.     BLSSU    100$
  41.     SUBL2    R2,R0
  42. 100$:    RET
  43.  
  44.     .ALIGN    LONG
  45.     .ENTRY    _LSHRSI3,^M<>
  46.     MOVL    4(AP),R0
  47.     SUBL3    8(AP),#32,R1
  48.     EXTZV    8(AP),R1,R0,R0
  49.     RET
  50.  
  51.     .ALIGN    LONG
  52.     .ENTRY    _FIXUNS_TRUNCDFSI,^M<>
  53.     CVTDL    4(AP),R0
  54.     RET
  55.  
  56.     .END
  57.